home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_556 / scheme2c / scheme-src.lzh / scrt / repdef.sc < prev    next >
Text File  |  1991-10-11  |  3KB  |  73 lines
  1. ;;; Scheme->C
  2. ;;;
  3. ;;; This file contains external definitions for use in compiling the
  4. ;;; the interpreter.
  5.  
  6. ;*              Copyright 1989 Digital Equipment Corporation
  7. ;*                         All Rights Reserved
  8. ;*
  9. ;* Permission to use, copy, and modify this software and its documentation is
  10. ;* hereby granted only under the following terms and conditions.  Both the
  11. ;* above copyright notice and this permission notice must appear in all copies
  12. ;* of the software, derivative works or modified versions, and any portions
  13. ;* thereof, and both notices must appear in supporting documentation.
  14. ;*
  15. ;* Users of this software agree to the terms and conditions set forth herein,
  16. ;* and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
  17. ;* right and license under any changes, enhancements or extensions made to the
  18. ;* core functions of the software, including but not limited to those affording
  19. ;* compatibility with other hardware or software environments, but excluding
  20. ;* applications which incorporate this software.  Users further agree to use
  21. ;* their best efforts to return to Digital any such changes, enhancements or
  22. ;* extensions that they make and inform Digital of noteworthy uses of this
  23. ;* software.  Correspondence should be provided to Digital at:
  24. ;* 
  25. ;*                       Director of Licensing
  26. ;*                       Western Research Laboratory
  27. ;*                       Digital Equipment Corporation
  28. ;*                       100 Hamilton Avenue
  29. ;*                       Palo Alto, California  94301  
  30. ;* 
  31. ;* This software may be distributed (but not offered for sale or transferred
  32. ;* for compensation) to third parties, provided such third parties agree to
  33. ;* abide by the terms and conditions of this notice.  
  34. ;* 
  35. ;* THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
  36. ;* WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  37. ;* MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
  38. ;* CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  39. ;* DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  40. ;* PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  41. ;* ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  42. ;* SOFTWARE.
  43.  
  44. ;;; Return the current value of sc_stacktrace.  It is not defined as a C
  45. ;;; external as the compiler emitted extern might conflict with the one
  46. ;;; in objects.h.
  47.  
  48. (define-in-line (STACKTRACE) ((lap () (UNSIGNED_TSCP "sc_stacktrace"))))
  49.  
  50. (define-external TRACE-LEVEL scdebug)
  51.  
  52. (define-external *DEBUG-ON-ERROR* scdebug)
  53.  
  54. (define-external (DOBACKTRACE start stop lines port) scdebug)
  55.  
  56. (define-external (BACKTRACE-ERROR-HANDLER id format-string . args) scdebug)
  57.  
  58. (define-external (ON-INTERRUPT sig) scdebug)
  59.  
  60. (define-external (EXPAND x) scexpand)
  61.  
  62. (define-external (INSTALL-EXPANDER keyword function) scexpand)
  63.  
  64. (define-external (ISLIST l min . max) scexpand)
  65.  
  66. (define-external (COND-MACRO exp) scexpanders1)
  67.  
  68. (define-external (LET-MACRO exp) scexpanders2)
  69.  
  70. (define-external (QUASIQUOTATION d exp) scquote)
  71.  
  72. (define-external *READING-STDIN* screp)
  73.